home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8702b.d64
/
film maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
729b
|
20 lines
4 IFA=2THENGOSUB90:SYS828:CLOSE2:GOTO70
5 A=A+1:IFA=1THENLOAD"MPMLOADER",8,8
7 INPUT"[147]DISKETTE MIT LORES-BILDERN EINLEGEN";A$
10 T=4000
20 READA$:IFA$="*"THEN60
30 POKE252,INT(T/256):POKE251,T-PEEK(252)*256:SYS828,A$
40 T=T+1000:GOTO20
60 INPUT"PROGRAMMDISK EINLEGEN";A$
61 PRINT""
62 POKE251,160:POKE252,15:POKE254,INT(T/256)
65 POKE253,T-PEEK(254)*256:LOAD"MPSAVER",8,8
70 A=5:PRINT"[147]FILM IST BEREIT
80 [153]"VERGESSEN SIE NICHT DAS FILE 'MPVIEWER' MIT LOAD UND SAVE AUF DIE
85 PRINT"FILMDISK ZU SPEICHERN !!!":END
90 INPUT"[147]BITTE FILMDISK EINLEGEN";A$:PRINT"BITTE NAMEN ANGEBEN"
95 RETURN
100 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
110 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40
120 DATA41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,*